home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / source1 / bcalc.dfm / bcalc.txt next >
Encoding:
Text File  |  1995-12-22  |  10.5 KB  |  508 lines
  1. object BCalcBox: TBCalcBox
  2.   Left = 468
  3.   Top = 176
  4.   HorzScrollBar.Visible = False
  5.   BorderIcons = [biSystemMenu, biMinimize]
  6.   BorderStyle = bsSingle
  7.   Caption = 'Business Calculator'
  8.   ClientHeight = 273
  9.   ClientWidth = 465
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   Icon.Data = {<image000.ico>}
  15.   PixelsPerInch = 96
  16.   PopupMenu = PopupMenu1
  17.   OnActivate = FormActivate
  18.   OnDestroy = FormDestroy
  19.   TextHeight = 16
  20.   object Panel1: TPanel
  21.     Left = 0
  22.     Top = 0
  23.     Width = 465
  24.     Height = 273
  25.     BevelInner = bvLowered
  26.     BorderWidth = 2
  27.     BorderStyle = bsSingle
  28.     Color = clGray
  29.     Ctl3D = True
  30.     Font.Color = 8453888
  31.     Font.Height = -21
  32.     Font.Name = 'System'
  33.     Font.Pitch = fpVariable
  34.     Font.Style = []
  35.     ParentCtl3D = False
  36.     ParentFont = False
  37.     ParentShowHint = False
  38.     ShowHint = False
  39.     TabOrder = 0
  40.     object ListBox1: TListBox
  41.       Left = 9
  42.       Top = 9
  43.       Width = 208
  44.       Height = 248
  45.       Hint = ' Right Click For Menu'
  46.       Font.Color = clBlack
  47.       Font.Height = -13
  48.       Font.Name = 'System'
  49.       Font.Pitch = fpFixed
  50.       Font.Style = []
  51.       ItemHeight = 15
  52.       MultiSelect = True
  53.       ParentFont = False
  54.       ParentShowHint = False
  55.       ShowHint = True
  56.       TabOrder = 0
  57.       OnKeyDown = ListBox1KeyDown
  58.       OnKeyPress = FormKeyPress
  59.     end
  60.     object MaskEdit1: TEdit
  61.       Left = 243
  62.       Top = 21
  63.       Width = 193
  64.       Height = 22
  65.       Color = clBlack
  66.       Font.Color = clLime
  67.       Font.Height = 13
  68.       Font.Name = 'System'
  69.       Font.Pitch = fpFixed
  70.       Font.Style = []
  71.       ParentFont = False
  72.       ReadOnly = True
  73.       TabOrder = 1
  74.       Text = '                     .'
  75.     end
  76.     object ClearTapeB: TBitBtn
  77.       Left = 224
  78.       Top = 64
  79.       Width = 30
  80.       Height = 57
  81.       Caption = 'CT'
  82.       Font.Color = clBlack
  83.       Font.Height = -21
  84.       Font.Name = 'System'
  85.       Font.Pitch = fpVariable
  86.       Font.Style = []
  87.       ParentFont = False
  88.       TabOrder = 2
  89.       OnClick = ClearTapeBClick
  90.       Layout = blGlyphRight
  91.     end
  92.     object ClearEntB: TBitBtn
  93.       Left = 224
  94.       Top = 128
  95.       Width = 30
  96.       Height = 57
  97.       Caption = 'CE'
  98.       Font.Color = clBlack
  99.       Font.Height = -21
  100.       Font.Name = 'System'
  101.       Font.Pitch = fpVariable
  102.       Font.Style = []
  103.       ParentFont = False
  104.       TabOrder = 3
  105.       OnClick = ClearEntBClick
  106.       Layout = blGlyphRight
  107.     end
  108.     object ClearB: TBitBtn
  109.       Left = 224
  110.       Top = 192
  111.       Width = 30
  112.       Height = 65
  113.       Caption = 'C'
  114.       Font.Color = clBlack
  115.       Font.Height = -21
  116.       Font.Name = 'System'
  117.       Font.Pitch = fpVariable
  118.       Font.Style = []
  119.       ParentFont = False
  120.       TabOrder = 4
  121.       OnClick = ClearBClick
  122.       Layout = blGlyphRight
  123.     end
  124.     object ZeroB: TBitBtn
  125.       Left = 304
  126.       Top = 224
  127.       Width = 73
  128.       Height = 30
  129.       Caption = '0'
  130.       Font.Color = clBlack
  131.       Font.Height = -21
  132.       Font.Name = 'System'
  133.       Font.Pitch = fpVariable
  134.       Font.Style = []
  135.       ParentFont = False
  136.       TabOrder = 5
  137.       OnClick = ZeroBClick
  138.       Layout = blGlyphRight
  139.     end
  140.     object EqualB: TBitBtn
  141.       Left = 424
  142.       Top = 184
  143.       Width = 30
  144.       Height = 73
  145.       Caption = '='
  146.       Font.Color = clBlack
  147.       Font.Height = -23
  148.       Font.Name = 'System'
  149.       Font.Pitch = fpVariable
  150.       Font.Style = [fsBold]
  151.       ParentFont = False
  152.       TabOrder = 6
  153.       OnClick = EqualBClick
  154.     end
  155.     object DecimalB: TBitBtn
  156.       Left = 384
  157.       Top = 224
  158.       Width = 30
  159.       Height = 30
  160.       Caption = '.'
  161.       Font.Color = clBlack
  162.       Font.Height = -21
  163.       Font.Name = 'System'
  164.       Font.Pitch = fpVariable
  165.       Font.Style = []
  166.       ParentFont = False
  167.       TabOrder = 7
  168.       OnClick = DecimalBClick
  169.       Layout = blGlyphBottom
  170.     end
  171.     object MemAddB: TBitBtn
  172.       Left = 264
  173.       Top = 224
  174.       Width = 30
  175.       Height = 30
  176.       Caption = 'MA'
  177.       Font.Color = clBlack
  178.       Font.Height = -21
  179.       Font.Name = 'System'
  180.       Font.Pitch = fpVariable
  181.       Font.Style = []
  182.       ParentFont = False
  183.       TabOrder = 8
  184.       OnClick = MemAddBClick
  185.       Layout = blGlyphBottom
  186.     end
  187.   end
  188.   object PlusB: TBitBtn
  189.     Left = 424
  190.     Top = 104
  191.     Width = 30
  192.     Height = 73
  193.     Caption = '+'
  194.     Font.Color = clBlack
  195.     Font.Height = -24
  196.     Font.Name = 'MS Serif'
  197.     Font.Pitch = fpVariable
  198.     Font.Style = [fsBold]
  199.     ParentFont = False
  200.     TabOrder = 1
  201.     OnClick = PlusBClick
  202.   end
  203.   object MemSuB: TBitBtn
  204.     Left = 264
  205.     Top = 184
  206.     Width = 30
  207.     Height = 30
  208.     Caption = 'MS'
  209.     Font.Color = clBlack
  210.     Font.Height = -21
  211.     Font.Name = 'System'
  212.     Font.Pitch = fpVariable
  213.     Font.Style = []
  214.     ParentFont = False
  215.     TabOrder = 2
  216.     OnClick = MemSuBClick
  217.     Layout = blGlyphBottom
  218.   end
  219.   object MemRclB: TBitBtn
  220.     Left = 264
  221.     Top = 144
  222.     Width = 30
  223.     Height = 30
  224.     Caption = 'MR'
  225.     Font.Color = clBlack
  226.     Font.Height = -21
  227.     Font.Name = 'System'
  228.     Font.Pitch = fpVariable
  229.     Font.Style = []
  230.     ParentFont = False
  231.     TabOrder = 3
  232.     OnClick = MemRclBClick
  233.     Layout = blGlyphBottom
  234.   end
  235.   object MemClrB: TBitBtn
  236.     Left = 264
  237.     Top = 104
  238.     Width = 30
  239.     Height = 30
  240.     Caption = 'MC'
  241.     Font.Color = clBlack
  242.     Font.Height = -21
  243.     Font.Name = 'System'
  244.     Font.Pitch = fpVariable
  245.     Font.Style = []
  246.     ParentFont = False
  247.     TabOrder = 4
  248.     OnClick = MemClrBClick
  249.     Layout = blGlyphBottom
  250.   end
  251.   object PercentB: TBitBtn
  252.     Left = 264
  253.     Top = 64
  254.     Width = 30
  255.     Height = 30
  256.     Caption = '%'
  257.     Font.Color = clBlack
  258.     Font.Height = -21
  259.     Font.Name = 'System'
  260.     Font.Pitch = fpVariable
  261.     Font.Style = []
  262.     ParentFont = False
  263.     TabOrder = 5
  264.     OnClick = PercentBClick
  265.     Layout = blGlyphBottom
  266.   end
  267.   object ChangeB: TBitBtn
  268.     Left = 304
  269.     Top = 64
  270.     Width = 30
  271.     Height = 30
  272.     Caption = '+/-'
  273.     Font.Color = clBlack
  274.     Font.Height = -21
  275.     Font.Name = 'System'
  276.     Font.Pitch = fpVariable
  277.     Font.Style = []
  278.     ParentFont = False
  279.     TabOrder = 6
  280.     OnClick = ChangeBClick
  281.     Layout = blGlyphBottom
  282.   end
  283.   object DivideB: TBitBtn
  284.     Left = 344
  285.     Top = 64
  286.     Width = 30
  287.     Height = 30
  288.     Caption = '/'
  289.     Font.Color = clBlack
  290.     Font.Height = -21
  291.     Font.Name = 'System'
  292.     Font.Pitch = fpVariable
  293.     Font.Style = []
  294.     ParentFont = False
  295.     TabOrder = 7
  296.     OnClick = DivideBClick
  297.     Layout = blGlyphBottom
  298.   end
  299.   object TimesB: TBitBtn
  300.     Left = 384
  301.     Top = 64
  302.     Width = 30
  303.     Height = 30
  304.     Caption = '*'
  305.     Font.Color = clBlack
  306.     Font.Height = -21
  307.     Font.Name = 'System'
  308.     Font.Pitch = fpVariable
  309.     Font.Style = []
  310.     ParentFont = False
  311.     TabOrder = 8
  312.     OnClick = TimesBClick
  313.     Layout = blGlyphTop
  314.   end
  315.   object MinusB: TBitBtn
  316.     Left = 424
  317.     Top = 64
  318.     Width = 30
  319.     Height = 30
  320.     Caption = '-'
  321.     Font.Color = clBlack
  322.     Font.Height = -24
  323.     Font.Name = 'System'
  324.     Font.Pitch = fpVariable
  325.     Font.Style = [fsBold]
  326.     ParentFont = False
  327.     TabOrder = 9
  328.     OnClick = MinusBClick
  329.     Layout = blGlyphBottom
  330.   end
  331.   object OneB: TBitBtn
  332.     Left = 304
  333.     Top = 184
  334.     Width = 30
  335.     Height = 30
  336.     Caption = '1'
  337.     Font.Color = clBlack
  338.     Font.Height = -21
  339.     Font.Name = 'System'
  340.     Font.Pitch = fpVariable
  341.     Font.Style = []
  342.     ParentFont = False
  343.     TabOrder = 10
  344.     OnClick = OneBClick
  345.     Layout = blGlyphBottom
  346.   end
  347.   object TwoB: TBitBtn
  348.     Left = 344
  349.     Top = 184
  350.     Width = 30
  351.     Height = 30
  352.     Caption = '2'
  353.     Font.Color = clBlack
  354.     Font.Height = -21
  355.     Font.Name = 'System'
  356.     Font.Pitch = fpVariable
  357.     Font.Style = []
  358.     ParentFont = False
  359.     TabOrder = 11
  360.     OnClick = OneBClick
  361.     Layout = blGlyphBottom
  362.   end
  363.   object ThreeB: TBitBtn
  364.     Left = 384
  365.     Top = 184
  366.     Width = 30
  367.     Height = 30
  368.     Caption = '3'
  369.     Font.Color = clBlack
  370.     Font.Height = -21
  371.     Font.Name = 'System'
  372.     Font.Pitch = fpVariable
  373.     Font.Style = []
  374.     ParentFont = False
  375.     TabOrder = 12
  376.     OnClick = OneBClick
  377.     Layout = blGlyphBottom
  378.   end
  379.   object FourB: TBitBtn
  380.     Left = 304
  381.     Top = 144
  382.     Width = 30
  383.     Height = 30
  384.     Caption = '4'
  385.     Font.Color = clBlack
  386.     Font.Height = -21
  387.     Font.Name = 'System'
  388.     Font.Pitch = fpVariable
  389.     Font.Style = []
  390.     ParentFont = False
  391.     TabOrder = 13
  392.     OnClick = OneBClick
  393.     Layout = blGlyphBottom
  394.   end
  395.   object FiveB: TBitBtn
  396.     Left = 344
  397.     Top = 144
  398.     Width = 30
  399.     Height = 30
  400.     Caption = '5'
  401.     Font.Color = clBlack
  402.     Font.Height = -21
  403.     Font.Name = 'System'
  404.     Font.Pitch = fpVariable
  405.     Font.Style = []
  406.     ParentFont = False
  407.     TabOrder = 14
  408.     OnClick = OneBClick
  409.     Layout = blGlyphBottom
  410.   end
  411.   object SixB: TBitBtn
  412.     Left = 384
  413.     Top = 144
  414.     Width = 30
  415.     Height = 30
  416.     Caption = '6'
  417.     Font.Color = clBlack
  418.     Font.Height = -21
  419.     Font.Name = 'System'
  420.     Font.Pitch = fpVariable
  421.     Font.Style = []
  422.     ParentFont = False
  423.     TabOrder = 15
  424.     OnClick = OneBClick
  425.     Layout = blGlyphBottom
  426.   end
  427.   object SevenB: TBitBtn
  428.     Left = 304
  429.     Top = 104
  430.     Width = 30
  431.     Height = 30
  432.     Caption = '7'
  433.     Font.Color = clBlack
  434.     Font.Height = -21
  435.     Font.Name = 'System'
  436.     Font.Pitch = fpVariable
  437.     Font.Style = []
  438.     ParentFont = False
  439.     TabOrder = 16
  440.     OnClick = OneBClick
  441.     Layout = blGlyphBottom
  442.   end
  443.   object EightB: TBitBtn
  444.     Left = 344
  445.     Top = 104
  446.     Width = 30
  447.     Height = 30
  448.     Caption = '8'
  449.     Font.Color = clBlack
  450.     Font.Height = -21
  451.     Font.Name = 'System'
  452.     Font.Pitch = fpVariable
  453.     Font.Style = []
  454.     ParentFont = False
  455.     TabOrder = 17
  456.     OnClick = OneBClick
  457.     Layout = blGlyphBottom
  458.   end
  459.   object NineB: TBitBtn
  460.     Left = 384
  461.     Top = 104
  462.     Width = 30
  463.     Height = 30
  464.     Caption = '9'
  465.     Font.Color = clBlack
  466.     Font.Height = -21
  467.     Font.Name = 'System'
  468.     Font.Pitch = fpVariable
  469.     Font.Style = []
  470.     ParentFont = False
  471.     TabOrder = 18
  472.     OnClick = OneBClick
  473.     Layout = blGlyphBottom
  474.   end
  475.   object PopupMenu1: TPopupMenu
  476.     Left = 153
  477.     Top = 17
  478.     object File1: TMenuItem
  479.       Caption = '&File          Alt-F'
  480.       object Copy1: TMenuItem
  481.         Caption = '&Copy'
  482.         OnClick = Copy1Click
  483.         ShortCutText = 'Ctrl+C'
  484.       end
  485.       object Print1: TMenuItem
  486.         Caption = '&Print'
  487.         OnClick = Print1Click
  488.         ShortCutText = 'Ctrl+P'
  489.       end
  490.     end
  491.     object Help1: TMenuItem
  492.       Caption = '&Help         F1'
  493.       object HelpContext1: TMenuItem
  494.         Caption = 'Contents'
  495.         OnClick = HelpContext1Click
  496.       end
  497.       object HelpSearch1: TMenuItem
  498.         Caption = 'Search'
  499.         OnClick = HelpSearch1Click
  500.       end
  501.     end
  502.     object Close1: TMenuItem
  503.       Caption = 'E&xit          Alt-F4'
  504.       OnClick = Close1Click
  505.     end
  506.   end
  507. end
  508.